Application.ExecuteCommand("Add Route")
dim ws : set ws = CreateObject("WScript.Shell")
dim varName : varName = "Routing"
dim regPath : regPath ="HKEY_CURRENT_USER\Software\MyApp\PADS\" & varName
dim varValue : varValue = 1
ws.RegWrite "HKEY_CURRENT_USER\Software\MyApp\PADS\" & varName, varValue, "REG_EXPAND_SZ"

varName = "PreviousLayer"
ws.RegWrite "HKEY_CURRENT_USER\Software\MyApp\PADS\" & varName, -1, "REG_EXPAND_SZ"
varName = "ActiveLayer"
ws.RegWrite "HKEY_CURRENT_USER\Software\MyApp\PADS\" & varName, -1, "REG_EXPAND_SZ"

set ws = nothing